home *** CD-ROM | disk | FTP | other *** search
/ Workbench Designer 2 / Workbench Designer 2.iso / workbench-tools / finderv3 / install < prev    next >
Encoding:
Text File  |  1997-06-21  |  2.6 KB  |  72 lines
  1. ; $VER: FinderV3 Installer V1.00 (17.6.97)
  2. ;  by Chris Jones
  3. ;  ©1997 Dynamic Software
  4. ;  All rights reserved
  5.  
  6. ; Pinch this code if you want :)
  7.  
  8. ;First, welcome the user
  9. (welcome "Welcome to the Installation process for FinderV3\n\n"
  10.          "You will be asked to provide a path for Finder's\n"
  11.          "main executable. All other files have pre-dictated\n"
  12.          "locations (e.g. the help file must reside in HELP:")
  13.  
  14. (message "\nPlease note: FinderV3 is FREEWARE\n")
  15.  
  16. ;setup some variables
  17. (set #binary "FinderV3")
  18. (set #help   "FinderV3.guide")
  19. (set #logo   "FinderLogo.iff")
  20. (set #mui    "ReadMe.mui")
  21. (set #readme "Readme")
  22. (set #source "Source")
  23. (set @default-dest "work:")
  24. (set #dest @default-dest)
  25.  
  26. (complete 0)
  27.  
  28. ;get from the user where he wants Finder installed
  29. (set #dest (askdir (prompt "Please choose where FinderV3's drawer will be installed") (disk) (help "Please choose a place for the FinderV3 drawer") (default "Work:")))
  30. (set #dest (tackon #dest "FinderV3"))
  31.  
  32. (complete 25)
  33.  
  34. ;copy the main executable to the new drawer which we make
  35. (if (= (exists #dest (noreq)) 0 )
  36.    (makedir #dest (prompt "Creating directory: " #dest) (infos) (help "This will create FinderV3's drawer") (confirm)))
  37. (if (= (exists #dest (noreq)) 1 )
  38.    (abort "Error: The drawer name you gave already exists as a file"))
  39.  
  40. (copyfiles (source #binary) (dest #dest) (infos) (prompt "Copying 'FinderV3' to " #dest) (confirm) (help "This will copy the main Finder executable and icon"))
  41.  
  42. (complete 50)
  43.  
  44. ;copy the logo to the new drawer
  45. (copyfiles (source #logo) (dest #dest) (prompt "Copying logo image (required) to " #dest) (help "This will copy the Finder logo image (required)"))
  46.  
  47. ;copy the MUI readme
  48. (copyfiles (source #mui) (dest #dest) (prompt "Copying MUI readme to " #dest) (help "This copies the MUI readme"))
  49.  
  50. (complete 75)
  51.  
  52. ;copy the Helpfile to HELP:
  53. (copyfiles (source #help) (dest "HELP:") (infos) (confirm) (prompt "Copying helpfile to HELP:") (help "This will install the on-line helpfile"))
  54.  
  55. ;set the default-dest for the exit messages
  56. (set @default-dest #dest)
  57.  
  58. ;copy the source directory
  59. (makedir (tackon #dest "Source"))
  60. (set #dest (tackon #dest "Source"))
  61. (copyfiles (source #source) (dest #dest) (infos) (confirm) (all) (prompt "Copying C source files") (help "This copies the C source"))
  62.  
  63. (complete 100)
  64.  
  65. (message "Thank you for installing FinderV3\n"
  66.          "Please consider taking the time to e-mail the author\n"
  67.          "since you got this fine piece of software for free\n\n"
  68.          "E-Mail: Chris Jones <aces@calweb.com>\n"
  69.          "(My PGP key is in the Readme for this archive)")
  70.  
  71. ;End of Installer
  72.